Division By Zero (DBZ)

Description:

DBZ detects situations where an integer value is divided by zero. This will result in an ArithmeticException being thrown at runtime.

Incorrect:

procedure eval(value,scale: integer);
var scaledValue:integer;
begin
    if scale <> 0 Then
        ...
    else
    begin
        scaledValue := value div scale;
        ...
    end;
end;